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<LEGAL COMMAND> 38 <ASSIGN I/0 COMMAND> 
<BNPF PUNCH COMMAND> 
<COMPARE COMMAND> 
<DISPLAY MEMORY COMMAND> 
<ENDFILE COMMAND> 
<FILL MEMORY COMMAND> 
“PROGRAM EXECUTE COMMAND> 
<HEXADECIMAL ARITHMETIC COMMAND> 
<LOAD BNPF COMMAND> 
<MOVE MEMORY COMMAND> 
<¢LEADER COMMAND> 
<PROGRAM COMMAND> 
<READ HEXADECIMAL FILE COMMAND> 
<SUBSTITUTE MEMORY COMMAND> 
<TRANSFER COMMAND> 
“WRITE HEXADECIMAL RECORD COMMAND> 
“REGISTER MODIFY COMMAND> 


<ASSIGN I/0 COMMAND> 8: ACLOGICAL DEVICE>S<PHYSICAL DEVICE> 
<BNPF PUNCH COMMAND> 188 B<NUMBER>, <NUMBER> 

<COMPARE COMMAND> 8:5 C<NUMBERD> 

<DISPLAY MEMORY COMMAND> t!= D<NUMBER>,<NUMBER> 

<ENDFILE COMMAND? $38 E<NUMBERD> 

<FILL MEMORY COMMAND> t28 F<NUMBER> + <NUMBER>» <NUMBER> 
<PROGRAM EXECUTE COMMAND> t28 G<NUMBER>, <NUMBER>, <NUMBER> 
<HEXADECIMAL ARITHMETIC COMMAND> $42 H«€NUMBERD>, <NUMBERD 
<LOAD BNPF COMMAND> ts L<NUMBER>,<NUMBER> 

<MOVE MEMORY COMMAND> 315 M<NUMBER>, <NUMBERS»<NUMBER> 
<LEADER COMMAND> 338 N 

<PROGRAM COMMAND? $33 P<NUMBER>,<NUMBER>, <NUMBER> 


<READ KEXADECIMAL FILE COMMAND> $38 R<NUMBERD> 
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<SUBSTITUTE MEMOKY COMMAND? ¢38 S<NUMBER> 

<TRANSFER COMMAND> $38 T<NUMBER> 

<wRITE HEXADECIMAL RECORD COMMAND> ts w<NUMBER>, <NUMBER> 
SREGISTER MODIFY COMMAND> t$ X<REGISTER IDENTIFIER> 
<LOGICAL DEVICE> #32 CONSOLE! READERILIST{PUNCH 

<PHYSICAL DEVICE> 3:8 CRTIITTYIPTRIPTP{LPT 

“REGISTER IDENTIFIER? ¢32 ALBICIDIEIFIHILIMIPIS 


<NUMBER> 335 “HEX DIGIT> 
<NUMBER><HEX DIGIT> 


SHEX DIGIT? 2B OLLIZIZIAISIOITISIOIAIBICIDIEIF 


SYSTEM SIGNS ON WITH <CR><LFO<,> 


ER EQU 10 y VERSION 1,0 


TITuE ’ 8080 MONITOR, VERSION 1.0 


T/0 DEVICE OUTPUT COMMAND PORT 1 (TTC) BIT VALUES 


PIT REST MNEMONIC DESCRIPTION 

9 0 RBIT TIY READER GO/NO GO 

1 0 PCMD PTP GO/NO GO 

2 0 RCMD PTR GO/NO GO 

3 1 DSB PROM ENABLE/DISABLE, USbe1 
4 ) DATA IN T/C 

5 i) DATA OUT T/C 

6 0 PRIT 1702 PROM FROG, GO/NO Gu 

i 0) PBITA 1702A PROM PROG, GO/NO GO 


I/7% Cevick INPUT STATUS PORT 1 (TTS) BIT VALUES 


BIT REST MNEMONIC DESCRIPTION 

0) 1 TTYDA IF [TYDA = 0, INPUT IS READY 
1 1 OVEKRUN ERKUP 

Zz 0 TTYBE IF [TYBE = 0, OUTPUT IS READY 
3 1 FRAMING ERPOPR 

o 1 PARITY ERROR 

5 4 PTRDA IF PTRDA = i, PTR HAS ChAR 

6 ‘ PRDY IF PRDY 3 1, PTP IS READY 

a UNASSIGNED 


I/D DEVICE IPUT STATUS PORT 5S (CRTS) BIT VALUES 


o 


sd 


8080 MACRO ASSEMBLER, VER 1el 
, 
, BIT REST MNEMONIC 
3 
’ 0 1 CRTDA 
H 1 1 
i 2 0 CRTBE 
’ 3 1 
H 4 1 
$ 5 
: 6 
H 7 
$ 
$ I/70 COMMAND CONSTANTS 
} 
0001 RBIT EQU 1 
0002 PCMD EQU 2 
0004 RCMD EQU 4 
0008 DSB EQU 8 
0080 PBITA EQU 80H 
9 TTY I/0 CONSTANTS 
; 
0000 TTI EQU 0 
0000 TTO EGU 0 
0001 TTS EQuU 1 
0001 TTC EQU 1 
0009 TTYGO EQu RBIT OR DSB 
0008 TTYNO EQU DSB 
0001 TTYDA EQU 1 
0004 TTYBE EQU 4 
s CRT I/0 CONSTANTS 
, 
0004 CRTI EQU 4 
0005 CRTS EQU 5 
0004 CRTO EQU 4 
0001 CRTDA EQU 1 
0004 CRTBE EQU 4 
; 
y PTR I/0 CONSTANTS 
’ 
0003 PTRI EQU 3 
0003 PTRS EQU TTS 
0001 PTRC EQU TTC 
000C PTRGO EQU RCMD OR DSB 
0008 PTRNO EQU TTYNO 
0020 PTRDA EQU 20H 
5 
y PTP I/0 CONSTANTS 
$ 
0003 PTPO EQU 3 
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VERSION 1,0 


DESCRIPTION 
IF CRTDA = 0, INPUT IS READY 
QVERRUN ERROR 
IF CRTIBE = 0, 
FRAMING ERROR 
PARITY ERROR 
UNASSIGNED 
UNASSIGNED 
UNASSGIGNEC 


OUTPUT IS READY 


TTY INPUT DATA PORT 

TTY OUTPUT DATA FORT 
TTY INPUT STATUS PORT 
TTY OUTPUT COMMAND PORT 
START TTY READER 

STOP TTY READER 

DATA AVAILABLE 

TRANSMIT BUFFER EMPTY 


CRT INPUT DATA FORT 
CRT INPUT STATUS PORT 
CRT OUTPUT DATA PORT 
DATA AVAILABLE 
TRANSMIT BUFFER EMPTY 


PTR INPUT DATA PORT (NOT INVERTED) 
PTR INPUT STATUS PORT 

PTR OUTPUT COMMAND PORT 

START PTR 

STOP PTR 

PTR DATA AVAILABLE 


PTP QUTPUT DATA PORT 
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0001 
0001 
0040 
OOOA 
0008 


0002 
0003 
0002 
0001 
0080 
0000 
0000 


OOFF 
0014 
000D 
OOOA 


0000 
FFFF 
0000 


FFFF 


- 


NNDONA NNN DH A A ee 
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PTPS EQu TTS } PTP INPUT STATUS PORT 
PTPC EQU TTC § PTP OUTPUT COMMAND PORT 
PRDY EQU 40H » PUNCH READY STATUS 
PTPGO EQU PCMD OR DSB $ START PUNCH 
PTPNO EQU TTYNO y STOP PUNCH 
, 
9 PROM PROGRAMMER I/0 CONSTANTS 
U 
PAD EQU 2 ) PROM ADDRESS OUTPUT PORT 
PbO EQU PTPO ) PROM DATA OUTPUT PORT 
PDI EQU 2 9 PROM DATA INPUT PORT 
PROMC EGU TIC 3 PROGRAMMING PULSE OUTPUT PORT 
PROGO EQU PBITA 3 START PROGRAMMING 
PRONO EGU 0 y) STOP PROGRAMMING 
ENB EQU 0 » ENABLE PROGRAMMER 
$ 
LDLY EQU OFFH 3 COUNTER FOR 520 MS DELAY 
DLY EQu 20 9 COUNTER FOR 2,0 MS DELAY 
CR EQU ODH y ASCII VALUE OF CARRIAGE RETURN 
UF EQU OAH y ASCII VALUE OF LINE FEED 
$ 
’ CONDITICNAL ASSEMBLY SWITCHES 
$ 
FALSE EQU 0 
TRUE EQU NOT FALSE 
DEBUG EQU FALSE y) DEBUG MODE - 


ETCH MACRO 
LxI 
DAD 
ENDM 


FIRST SET 

MODIO MACRO 
LxI 
MVI 
IF 


IOMOD38 

FIRST SET 
PUSH 
CALL 


MVI 
CALL 


Jc 


MACRO DEFINITIONS 


VALUE 
H, VALUE 
SP 


TRUE 
TABLE,MASK 
H, TABLE 

B, MASK 
FIRST 


FALSE 
B 
NOISE 


Cr4 
TEST 


LER 


we we we we we we we 


DISABLE CERTAIN CODE SECTIONS 
$O THAT MODIFICATIONS MAY BE DEBUGGED 


FETCH THE ADDRESS OF A VALUE 
IN THE STACK 


ADDRESS OF PHYSICAL UNIT TABLE 
B ws SELECT BIT MASK 

EMIT THIS CODE ONCE, 

BRANCH TO IT THEREAFTER 


SAVE BC 

SCAN INPUT AND ECHO UNTIL 

PHYSICAL DEVICE CHAR IS ENCOUNTERED 
SET TABLE LENGTH 

COMPARE PHYSICAL DEVICE AGAINST 
TABLE, RETURN HL ©> BIT PATTERN 
ERROR, INCORRECT PHYSICAL DEVICE 


PAGE 4 


e 
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2 CALL SCANOUT » SCAN INPUT AND ECHO UNTIL CR,LF 
2 POP B 
2 MOV Cc,M } GET DEVICE SELECT BITS 
2 LXI H, 1LOBYT 3 GET I/0 STATUS 
2 MOV A,M 
2 ANA B 3 CLEAR FIELD 
2 ORA ¢ 5 SET NEW STATUS 
2 MOV M,A » RETURN TO MEMORY 
2 JUMP START 
2 TEST? 3 INDEX THROUGH PHYSICAL UNIT TABLE 
2 CMP M y COMPARE DEVICE CHAR WITH LEGAL VALUES 
2 INX H 
2 RZ } RETURN WITH HL => DEVICE SELECT BITS 
2 INX H 
2 DCR C 
2 JNZ TEST 3 CONTINUE LOOKUP 
2 STC y ERROR RETURN 
2 RET 
1 ENDIF 
2 IF NOT FIRST 
2 JUMP IOMOD 
1 ENDIF 
ENDM 
5 
9 I/0 STATUS BYTE MASKS AND VALUES 
5 
OOFC CMSK EQU 111111008 3 MASK FOR CONSOLE 1/0 
OOF3 RMSK EQU 111100118 y MASK FOR READER INPUT 
OocF PMSK EQU 11001111B y MASK FOR PUNCH OUTPUT 
OO3F LMSK EQU 001111118 + MASK FOR LIST OUTPUT 
H 
0000 CTTY EQU 0 y CONSOLE I/0 = TTY 
0001 CCRT EQU y CONSOLE I/O & CRT 
0002 BATCH EQU 2 » BATCH MODE, 
3 INPUT © READER, OUTPUT # LIST 
0003 CUSE EQU 3 } USER DEFINED CONSOLE I/0 
0000 RTTY EQU 0 y READER @ TTY 
0004 RPTR EQU 4 y READER &© PTR 
0008 RUSE EQU 8 y USER DEFINED READER (1) 
000c RUSE2 EQU OCH y USER DEFINED READER (2) 
0000 PTTY EQU y PUNCH = TTY 
0010 PPTP EQU 10H y PUNCH & PTP 
0020 PUSE1 EQU 20H yj USER DEFINED PUNCH (1) 
0030 PUSE2 EGU 30H y USER DEFINED PUNCH (2) 
0000 LTTY EQU 0 y LIST = TTY 
0040 LCRT EGU 40H y LIST = CRT 
0080 LUSE1 EQU 80H y LIST s LPT 
00Co LUSE2 EQU OCOR y USER DEFINED LIST 


5 
3 USER DEFINED DEVICE ENTRY POINTS 
! 
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3700 
3703 
3706 
3709 
370C 
370F 
3712 
3715 
3718 


3800 


3800 
3803 
3806 
3809 
380C 
380F 
3812 
3815 
3818 
3818 


0008 


0003 


0000 


381E 
3822 


C32738 
C3763C 
C3943E 
€3323C¢ 
C36C3E 
C3CC3D 
C3B73C 
C39D3D 
C3A13D 
C3E43D 


cILOc 
coLoc 
RiLOC 
R2LOc 
P1iLOc 
P2LOC 
LiLoc 
L2L0c 
CsLoc 
LJ 


’ 
} BRANCH TABLE FOR I/O SYSTEM 


bf 
} POINTERS TO 


3 
RS1i 


’ 
3 STATUS BYTE 


’ 
IOBYT 


IOBYT 


INIT 


VER 1,1 


EQU 
EQU 
EQu 
EQu 
EQU 
EQu 
EQU 
EQU 
EQU 


IF 
ORG 
ENDIF 


IF 
ORG 
ENDIF 


JMP 
JUMP 
UMP 
UMP 
JUMP 
JMP 
UMP 
JMP 
JUMP 
JMP 


EQU 


IF 
EQU 
ENDIF 
TF 
EQu 
ENDIF 
EQU 


’ 
ODOAS645 VERS: DB 


3220 
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3700H 
3703H 
3706H 
3709H 
370CH 
370FH 
3712H 
3715H 
3718H 


DEBUG 
800H 


NOT DEBUG 
3800H 


FOR I/0 SYSTEM 


NOT DEBUG 
3 


DEBUG 
4 


0 


CR» LF,°’VER ” 


=e ~e ws we «eo <s we «es ws as — ~~ ~~ <s <o ~s «<s os <0 


~e ws se we we 


USER CONSOLE INPUT 
USER CONSOLE OUTPUT 
USER READER 1 

USER READER 2 

USER PUNCH 1 

USER PUNCH 2 

USER LIST (1) 

USER LIST (2) 

USER CONSOLE STATUS 


LOCATE IN RAM FORK DEBUG 


LOCATE IN TOP 8 ROMS IN 16K 


RESET ENTRY POINT 
CONSOLE INPUT 

READER INPUT 

CONSOLE OUTPUT 

PUNCH OUTPUT 

LIST OUTPUT 

CONSOLE INPUT STATUS 
1/0 SYSTEM STATUS 

SET I/0 CONFIGURATION 
COMPUTE SIZE OF MEMORY 


PESTART 1 LOGIC 


USE LOCATION 0003H 


USE LOCATION 0004H 


INITIALLY, 
CONSOLE & TTY, 
READER @ TTY, 
PUNCH s&s TTY, 
LIST # TTY 
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1 
3824 4 312E30 


0009 


3827 
3827 
382A 
362C 
382E 
382E 
382F 
3831 
3832 
3833 
3834 
3836 
3839 


383A 
383C 
383F 
383F 
3840 
3841 
3842 
3843 
3844 
3647 
3848 
3848 
384C 
384E 
384F 
3850 


3851 
3853 
3856 
3859 


~- - 


210300 
3600 
2E00 


220900 


LVER 


VER 1,3 


EQU 
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NOT DEBUG 


VER/104°0%,%.’/VER MOD 104°0° 


DEBUG 
xX? 


8-VERS 


} 
} PROGRAM ENTRY POINT 


’ 
y LOCATE THE STACK IN THE TOP OF AVAILABLE RAM 


’ 
BEGINS 


BGO3 


BGi3 


LXI 
MVI 
MVI 


H, IOBYT 
M,INIT 
L,0 


B,M 
M,OAAH 
AyM 
M,B 

H 

OAAH 
BGO 

H 
DEBUG 
H,2 


B,ENDX*EXIT 
D,ENDX 


H,100H 
H 
H,0 
H 
H 


H 
NOT DEBUG 


A, (JMP RESTART) 


RS1 
H,RESTART 
RSi+i 


POINT HL AT IOByT 
INITIAL VALUE OF I/0 


FETCH DATA FROM RAM 

PUT TEST VALUE IN PLACE 

FETCH TEST VALUE 

RESTORE ORIGINAL DATA 

POINT TO LOC+#256 

COMPARE FETCHED TEST DATA WITH KNOWN 
EQUAL, STILL IN RAM 


SET STACK AT 200H FOR DEBUG 
MOVE EXIT TEMPLATE TO RAM 


SET STACK 


) PUSH REGISTERS ON STACK 


IF IN DEBUG MODE, DON’T SET TRAPS 


SET UP RESTART 1 FOR BREAKPOINT 
LOGIC 


ERRORS # 0 PAGE 
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’ 
3 TYPE SIGN#ON 
5 


385¢ 211638 LXI H, VERS ) ADDRESS OF MESSAGE 
385F 1609 MVI D,LVER 3 LENGTH OF MESSAGE 
3861 VEROS 
3861 4E MOV CoM 
3862 8623 INX H 
3863 CD323C CALL co 
3866 45 DCR D 
3867 C26138 JNZ VERO 

’ 

y MAIN COMMAND LOOP 

5 
386A START! 
386A FB El y ENABLE INTERRUPTS 
386B 3Eu8 MVI A,TTYNO 3 RESET TTY, PTR, PTP, 
386D 0301 OUT TTC y AND PROM PROGRAMMER 
386F CDAD3C CALL CRLF y TYPE <CR>,<LF> 
3872 OE2E MVI Cr*e’ 
3874 CD323C CALL co 3 OUTPUT A PERIOD 
3877 CD603F CALL Tl 9 GET A CHARACTER 
387A 8 6D641 SUI *aAe } TEST FOR A#X 
387C FA6A38 um START } LT A, ERROR 
387F FE18 Cel XP wa 4] 
3881 F2203C Je LER 9 GT X, ERROR 
3884 8687 ALD A y #2 
3885 219338 LXxI H, TBL y) ADDRESS OF TABLE 
3888 0600 MVI B,0 3 CLEAR B 
386A 4F MOV CpA # INDEX TO C 
3885 ag DAT B 3 COMPUTE TABLE ADDRESS, PUI IN HL 
388C 8—s TE MUV A,M } GET LSB OF ADDRESS 
386D = =—.23 INX H y POINT TO NEXT ADDRESS 
388E 666 MUV HyM } GET MSB OF ADDRESS 
388F oF MOV L,A ; LSB TO L 
3890 OEv2 MVI Cr2 3 C IS SET UP FOR 2 PARAMETER COMMANDS 
3892 EQ PCHL ’ NCH TO ROUTINE <7 


COMMAND BRANCH TABLE 


ee 


3893 BLE 

3893 C338 Dw ASSIGN s ASSIGN I/O UNITS 

3895 iF39 Dw BNPF 3 B # PUNCH BNPF 

3897 6839 Dn COMP » C # COMPARE PROM wITH MEMORY 
3899 9B39 De DISP 9 D =» DISPLAY RAM MEMNRY 

3896 BC 39 Da EOF 3 E © ENDFILE A HEXADECIMAL Fils 
389D DE39 Da FILL » F © FILL MEMORY 

389F EF 39 Dw GOTO 3 G = GO TO MEMORY ADDRESS 

38A1 393A Dw HEXN 9 k » HEXADECIMAL SUM AND DIFFERENCE 
38A3 203C Dw LER t re 

38A5 203C Da LER : v2 
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38A7 203C Dw LER ' Ke» 
38A9 563A DW LOAD y L = LOAD BNPF TAPE 
3BAB 6A3A DW MOVE 3 M © MOVE MEMORY 
38AD TD3A DW NULL } N © PUNCH NULLS FOR LEADER 
36AF 203C DW LER 7 O08 
38Bi 833A DW PROG » P © PROGRAM A 1702A PROM 
36B3 203C Dw LER 9 Oo 
36B5 OF3A DW READ » R = READ HEXADECIMAL FILE 
38B7 2638 DW SUBS } S = SUBSTITUTE MEMORY 
36B9 $43B DW TRAN 9 T #* TRANSFER A PROM TO MEMORY 
38BB 203¢ DW LER ; Us 
36BD 203¢ Dw LER ;Ve 
36BF 6F3B DW WRITE y We WRITE HEX TAPE 
36C1 BC3B DW x » X » EXAMINE AND MODIFY REGISTERS 
’ 
3 PROCESS 2/0 DEVICE ASSIGNMENT COMMANDS 
U 
38C3 ASSIGN! 
38C3 CD6D3F CALL TI » GET LOGICAL DEVICE CHARACTER 
38C6 FE43 CPI "Ce » CONSOLE? 
38C8 C2F638 JNZ ASO TEST FOR READER 
1 + MODIO ICT,CMSK y MODIFY CONSOLE DEVICE 
38CB } 217A3F + LXI H, ICT y ADDRESS OF PHYSICAL UNIT TABLE 
38CE 1 O6FC + MVI B,CMSK 9 B = SELECT BIT MASK 
2 + IF FIRST ) EMIT THIS CODE ONCE, 
2 + } BRANCH TO IT THEREAFTER 
38D0 2 +IOMOD3s 
0000 2 +FIRST SET FALSE 
38Do 2 C5 + PUSH B 3 SAVE BC 
38D1 2 CDi23E + CALL NOISE 3 SCAN INPUT AND ECHO UNTIL 
2 + » PHYSICAL DEVICE CHAR IS ENCOUNTERED 
38D4 2 O£04 + MVI C4 3 SET TABLE LENGTH 
38D6 2 CDEB38 + CALL TEST yj COMPARE PHYSICAL DEVICE AGAINST 
2 + » TABLE, RETURN HL => BIT PATTERN 
38D9 2 DA203C + Jc LER y ERROR, INCORRECT PHYSICAL DEVICE 
3eDC 2 CD623F + CALL SCANOUT $ SCAN INPUT AND ECHO UNTIL CR,LF 
3eDF 2 C1 + POP B 
38E0 2 4E + MOV C,M y GET DEVICE SELECT BITS 
38E{ 2 210300 + LXI H,IOBYT y GET I/O STATUS 
38E4 2 7E + MOV A,M 
38E5 2 AO + ANA B ) CLEAR FIELD 
38E6 2 Bi + ORA Cc ) SET NEW STATUS 
38E7 2 77 + MOV M,A ) RETURN TO MEMORY 
38E8 2 C36A38 + UMP START 
38EB 2 +TESTs y INDEX THROUGH PHYSICAL UNIT TABLE 
38EB 2 BE ¢ CMP M » COMPARE DEVICE CHAR WITH LEGAL VALUES 
38EC 2 23 + INX H 
38ED 2 C8 + RZ y) RETURN WITH HL => DEVICE SELECT BITS 
38EE 2 23 + INX H 
38EF 2 OD + DCR Cc 
38FO 2 C2EB38 + JNZ TEST y CONTINUE LOOKUP 
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38F3 
38F4 


38F5 
38F8 
38F6 
38FA 


38FD 
3900 


3902 


3905 
3905 
3907 


390A 
390D 


2 


ePOnen 


KF NN FPN NRNMNNNNNNNNNNNNNNDRNNNN RY AYA PD A ee 


— 


37 
c9 


C3D038 


FES2 


C20539 


21623F 
O6F3 


C3D038 
FESO 
€21239 


218 A3F 
O6CF 


++ eee t+ 


ASO? 


++ ++ 


+ 


VER 1,1 


+IOMOD?:?2 
+FIRST SET 


+ 


TEST: 


+ +eeeteetereeerereere eer er ereoere pee reer eee + 


AS13 


PUSH 
CALL 


MVI 
CALL 


Jc 
CALL 
POP 
MOV 
LXI 
MOV 
ANA 
ORA 
MOV 
JKP 


CMP 
INX 
RZ 
INX 
DCR 
JNZ 
STC 
RET 
ENDIF 
IF 
JMP 
EXDIF 


Cel 
JNZ 
MODIO 
LXI 
MVI 
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NOT FIRST 
Tomop 


Re 

AS1 
IRT,RMSK 
H,IRT 
B,RMSK 
FIRST 


FALSE 
6 
NOISE 


C,4 
TEST 


LER 
SCANOUT 
B 

Cc, 

h, 1OBYT 
AM 


NOT FIRST 
10MOD 


ope 

AS2 
OPT,P4Sk 
H,OPT 
B,PMSK 


~~ we wo ve wo we we 


= <s ws we ws 


ERROR RETURN 


READER? 

TEST FOR PUNCH 

MODIFY READER DEVICE 

ADDRESS OF PHYSICAL UNIT TABLE 
B = SELECT BIT MASK 

EMIT THIS CODE ONCE, 

BRANCH TO IT THEREAFTER 


SAVE BC 

SCAN INPUT AND ECHO UNTIL 

PHYSICAL DEVICE CHAk IS ENCUUNTERED 
SET TABLE LENGTH 

COMPARE PHYSICAL DEVICE AGAINST 
TABLE, RETURN HL => BIT PATTERN 
ERROR, INCORRECT PHYSICAL DEVICE 
SCAN INPUT AND ECHO UNTIL Ck,LF 


GET DEVICE SELECT FITa 
GET I/O STATUS 


CLEAR FIELD 
SET NEW STATUS 
RETURN TO MEMORY 


INDEX THROUGH PHYSICAL UNIT TABLE 
COMPAKE DEVICE CHAR wITH LEGAL VALUES 


RETURN WITH HL »> DEVICE SELECT BITS 


CONTINUE LOOKUP 
ERROR RETURN 


PUNCH? 

TEST FOR LIST 

MODIFY PUNCH DEVICE 

ADDRESS OF PHYSICAL Uwit TABLE 
B = SELECi BIT MASK 


ERRORS = O*PAGE 10 


ww 
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2 + IF FIRST » EMIT THIS CODE ONCE, 
2 + » BRANCH TO IT THEREAFTER 
2 +IOMOD33 
2 +FIRST SET FALSE 
2 + PUSH 5 3 SAVE BC 
2 + CALL NOISE » SCAN INPUT AND ECHO UNTIL 
2 + y PHYSICAL DEVICE CHAR IS ENCOUNTERED 
2 + MVI C,4 9 SET TABLE LENGTH 
2 ~ CALL TEST 3 COMPARE PHYSICAL DEVICE AGAINST 
2 + # TABLE, RETURN HL => BIT PATTERN 
2 + Jc LER y ERROR, INCORRECT PHYSICAL DEVICE 
2 - CALL SCANOUT » SCAN INPUT AND ECHO UNTIL CR,LF 
2 + POP B 
2 * MOV C,M » GET DEVICE SELECT BITS 
2 + LXI H, LUBYT 9 GET 1/0 STATUS 
2 + MOV AyM 
2 + ANA B y CLEAR FIELD 
2 + ORA ¢ } SET NEW STATUS 
2 + MUV M,A y RETURN TO MEMORY 
2 + JMP START 
2 +TEST? $ INDEX THROUGH PHYSICAL UNIT TABLE 
2 + CMP M » COMPARE DEVICE CHAR WITH LEGAL VALUES 
” + INX K 
2 + RZ yj RETURN WITH HL > DEVICE SELECT BITS 
2 + INX H 
2 + DCR c 
2 + JNZ TEST » CONTINUE LOOKUP 
2 + STC y ERROR RETURN 
2 + RET 
1 + ENDIF 
2 + IF NOT FIRST 
390F 2 C3D038 + JMP TOMUD 
1 + ENDIF 
3912 AS23 
3912 FE4C CPI of i 3 LIST? 
3914 C2203C JNZ LER ERROR 
+ MODIO OLT,LMSK y MODIFY LIST DEVICE 
3917 21923F + LXI H,OLT y ADDRESS OF PHYSICAL UNIT TABLE 
391A 063F + MVI B,LMSK + B = SELECT BIT MASK 
+ IF FIRST y EMIT THIS CODE ONCE, 
* y BRANCH TO IT THEREAFTER 
+IOMODE? 
+FIRST SET FALSE 
+ PUSH B SAVE BC 


CALL NOISE SCAN INPUT AND ECHO UNTIL 


PHYSICAL DEVICE CHAR IS ENCOUNTERED 


MVI Cr4 SET TABLE LENGTH 

CALL TEST COMPARE PHYSICAL DEVICE AGAINST 
TABLE, RETURN HL => BIT PATTERN 

Jc LER ERROR, INCORRECT PHYSICAL DEVICE 


NNNNNNNNNNN ND & 


++ te eee + 
ee we we we we we we 


CALL SCANOUT SCAN INPUT AND ECHO UNTIL CR,LF 
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2 + POP B 
2 + MOV C,™ » GET DEVICE SELECT BITS 
2 + LXI H, IOBYT 3 GET I/O STATUS 
2 + MOV AyM 
2 ” ANA B 3 CLEAR FIELD 
2 + ORA c 3} SET NEW STATUS 
2 + MOV M,A » RETURN TO MEMORY 
2 + JMP START 
2 *TESTs 9 INDEX THROUGH PHYSICAL UNIT TABLE 
2 + CMP M y COMPARE DEVICE CHAR WITH LEGAL VALUES 
2 + INX H 
2 + RZ y RETURN WITH HL ©> DEVICE SELECT BITS 
2 + INX HK 
2 + DCR Cc 
2 + UNZ TEST + CONTINUE LOOKUP 
2 + STC 3 ERROR RETURN 
2 + RET 
1 + ENDIF 
2 + IF NOT FIRST 
391C 2 C3D038 + JMP IOMOD 
1 + ENDIF 
H 
+ PUNCH ROUTINE, PUNCH A BPNF TAPE 
U 
391F BNPF? 
391F CD593D CALL EXPR 3 GET TWO ADDRESSES 
3922 CDAD3C CALL CRLF 
3925 CDCO3B CALL LEAD 
3928 Di POP D 3 GET HIGH ADDRESS 
3929 Ei POP H » GET LOW ADDRESS 
392A BNO? 
392A E5 PUSH H 
3928 DS PUSH D 
392C CD623E CALL PEOL y PUNCH CR,LF 
392F 062@ MVI Bg # ZERO SUPPRESSION CHARACTER 
3934 111027 LXI D, 10000 y PUNCH ADDRESS IN DECIMAL 
3934 CDi73D CALL DIGIT 
3937 116803 LXI D,1000 
393A C01730 CALL DIGIT 
393D 116400 LXI D,100 
3940 CD1730 CALL DIGIT 
3943 1E0A MVI E,10 
3945 CD173D CALL DIGIT 
3948 1E01 MVI E,i 
394A 0630 MVI By °O? 3} FORCE AT LEAST 1 ZERO 
394C CD173D CALL DIGIT 
394F OE2@ MVI Cae" 
3951 CD6C3E CALL PO 
3954 D1 POP D 
3955 Ei POP H 


3956 BNi: 


‘ 
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3956 
3959 
395C 
395F 
3960 
3962 
3965 


3968 
3968 
3969 
396C 
396D 
396F 
396F 
3971 
3973 
3974 
3975 
3977 
3979 
397A 
397B 
397E 
397F 
3982 
3985 
3988 
3989 
398C 
3968F 
3990 
3993 
3993 
3994 
3995 
3998 


399B 
399B 
399E 
399F 
39A0 
39A0 
39A3 
39A6 
39A6 


CD363D 
CDsD3D 
DA7D3A 
7D 
E603 
C25639 
C32A39 


23 
ic 
C26F39 
C36A38 


CDS593D 
D1 
Ei 


CDAD3C 
CDA83D 


CD303C 


VER iel 


ENCODE 
HILO 
NULL 
A,L 
Q3H 
BNi 
BNO 
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y ENCODE A MEMORY BYTE INTO BNPF 
y ALL DONE, PUNCH TRAILER AND RETURN 


y PUNCH CR,LF,ADDRESS ON MULTIPLE OF 4 


U 
3 COMPARE PROM WITH RAM 


U 
COMP? 


DCR 
CALL 
POP 
MVI 


CMO 
START 


y) GET ONE ADDRESS 
y LOAD HL 
} COUNT/PROM ADDRESS 


} ENABLE PROM PROGRAMMER 
) SET PROM ADDRESS 

} INVERT ADDRESS 

) GET PROM DATA 

3 COMPARE WITH MEMORY 

} COMPARE 

) PRINT MEMORY ADDRESS 


y PRINT RAM DATA 


y RETRIEVE DATA 
» PRINT PROM DATA 


y ADJUST PROM ADDRESS 


; 
: DISPLAY MEMORY IN HEX ON TELEPRINTER 


; 
DISP3 


DIO: 


DIis 


CALL 
POP 
POP 


CALL 
CALL 


CALL 


EXPR 


y GET TWO ADDRESSES 

3 GET HIGH ADDRESS 

» GET LOW ADDRESS 

» PRINT MEMORY ADDRESS 


} PRINT SPACE 
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39A9 TE MOV AyM 
J9AA CDBO3C CALL LBYTE y PRINT DATA 
39AD CDsD3D CALL HILO y TEST FOR COMPLETION 
39B0 DA6A38 uc START 
39B3 7D MOV A,yL 
39B4 E60F ANI OFH } PRINT CR,LF,ADDRESS ON MULTIPLE OF 16 
39B6 C2A639 JNZ DI4 
39B9 C3A039 JUMP DIO 
3 
» END OF FILE COMMAND 
’ 
39BC EOFs: 
39BC oD DCR Cc 3 GET ONE PARAMETER 
396D CD593D CALL EXPR 
39C0 CD623E CALL PEOL ; PUNCH CR,LF 
39C3 OE3A MVI C5 *e" 
39C5 CD6C3E CALL PO 
39¢8 AF XRA A y CLEAR CHECKSUM 
35C9 57 MOV D,A 
35CA CD283E CALL PBYTE 3 OUTPUT RECORD LENGTH 
39CD El POP H 
39CE CD233E CALL PADR » PUNCh EXECUTION ADDRESS 
39D1 3E01 MVI1 Ay,i y RECGRD TYPE 1 
39D3 CD2B3E CALL PBYTE 
39D6 AF XRA A 
39D7 92 SUB D 3 QUTPUT CHECKSUM 
39D8 CD23 CALL PoYTE 
39Ds C37D3A JMP NULL y PUNCH TRAILER AND kFTURN 


FILL KOUTINE, FILL RAM MEMORY BLOCK WITH CONSTANT 


39DE 1LLt 
39DE oc INR c 3 GET 3 PARAMETERS 
39DF CDd5930 CALL EXPR 
39E2 C4 POP } 3 GET DATA IN C 
39E3 Dt POP D 3 GET HIGH ADDRESS 
39E4 Ei POP H 1 GET LOW ADDRESS 
39£5 FIO: 
39E5 71 MOV M,C y STORE CONSTANT IN MEMORY 
39E6 Cded3dD CALL HILO 3 TEST FOR COMPLETIO* 
39E9 D2ES39 INC FIO ¢ CONTINUE LOOPING 
39EC C36A38 JMP START 

$ 

3 GQ TO <ADDRESS>, CPTIONALLY SET TRAPS 

3 
39EF GOTO: 
39EF CD463E CALL PCHK 3 GET A CHARACTER 
39F2 DA313A Jc GO3 » CR ENTERED, EXIT 
39F5 CAO93A JZ GOO 3 DON’T MODIFY PC 
39F8 CD853D CALL EXF 3 GET NEW PC VALUE 


39FB Di POP D 
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39FC 
39FF 
3A00 
3A01 
3A02 
3A03 
3A04 
3A06 
3A09 
3A09 


3A0B 
3A0E 
3AOF 
3AOF 
3A10 
3A12 
3A15 
3A16 
3A17 
3A18 
3A19 
3A1A 
3A1D 
3A1E 
3AiF 
3A20 
3A21 
3A22 
3A23 
3A24 
3A26 
3A27 
3A27 
3A28 
3A2A 
3A2D 
3A2E 
3A31 
3A31 


3A34 
3A37 
3A36 


3A39 
3A39 
3A3C 


= 


= eo 


211300 
39 

72 

28 

73 

78 
FEOD 
CA313A 


1602 


211400 
39 


CDAD3C 


210800 
39 
E9 


CD593D 
Di 


+ 


FETCH 


LxI 
DAD 
MOV 
DCX 
MOV 
MOV 
CPI 
Jz 


MVI 


FETCH 


GO28 


GO3: 


VER isl 
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H,00008H 
SP 


VERSION 1,0 


IN THE STACK 


STORE MODIFIED PC IN RAM 


RETRIEVE DELIMITER CHARACTER 
NO TRAPS TO BE SET 

SET MAXIMUM OF TWO TRAPS 

IN THE STACK 


SAVE ADDRESS OF TRAP AREA 


GET A TRAP ADDRESS 


SAVE DELIMITER CHARACTER 
GET ADDRESS IN BC 


DON’T ALLOW A TRAP AT 0 
PUT TRAP ADDRESS AWAY 


FETCH OPCODE 
PUT IN TRAP AREA 


RESTART 1 
SET TRAP IN MEMORY 


TEST DELIMITER CHARACTER 
ALL DONE 
GO GET NEXT TRAP 


3 IN THE STACK 


) TAKE THE BRANCH 


’ 
3 COMPUTE HEXADECIMAL SUM AND DIFFERENCE 


U 

HEXN3 
CALL 
POP 


EXPR 
D 


9 GET TWO NUMBERS 


ERRORS 8 0 PAGE 


15 
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3A3D 
3A3E 
3A41 
3A42 
3A43 
3A46 
3A49 
3A4A 
3A4B 
3A4C 
3A4D 
3AGE 
3A4F 
3A50 
3AS3 


3A56 
3A56 
3A59 
3ASC 
3A5D 
JASE 
3ASE 
3A61 
3A64 
3A67 


3A6A 
3A6A 
3A6B 
3A6E 
3JA6F 
3A70 
3A71 
3A71 
3A72 
3A73 
3A74 
3A77 
3ATA 


3A7D 
3A7D 
3A80 


Ei 
CDAD3C 
E5 
19 
CDA83D 


CDA83D 
C36A38 


CDS93D 


copc3¢c 
CD8D3D 
D2SE3A 
C36A38 


03 

CD8D3D 
D2713A 
C36A38 


CDCO3D 
C36A38 


POP H 
CALL CRLF 
PUSH | 
DAD D y COMPUTE HL+DE 
CALL LADR y DISPLAY SUM 
CALL BLK y TYPE A SPACE 
POP H 
MOV A,L 9 COMPUTE HL=DE 
SUB E 
MOV L,A 
MOV A,H 
SBB D 
MOV H,A 
CALL LADR 3 DISPLAY DIFFERENCE 
JMP START 
U 
+ LOAD ROUTINE, LOAD A BPNF TAPE INTO RAM MEMORY 
, 
LOAD? 
CALL EXPR 3 GET TWO ADDRESSES 
CALL CRLF 
POP D - y» GET HIGH ADDRESS 
POP H 3 GET LOW ADDRESS 
LOO: 
CALL DECODE 3 CONVERT BNPF, STORE IN MEMORY 
CALL HILO y TEST FOR COMPLETION 
JNC LOO 3 KEEP GOING 
JMP START 


$ 
3 MOVE A BLOCK OF RAM MEMORY 
; 


MOVE3 
INR Cc } GET THREE ADDRESSES 
CALL EXPR 
POP B y DESTINATION 
POP D y SOURCE END 
POP H y SOURCE BEGIN 

MVO3 
MOV AyM 3 GET A DATA BYTE 
STAX B } STORE AT DESTINATION 
INX B 3 MOVE DESTINATION POINTER 
CALL HILO ) TEST FOR COMPLETION 
JNC MVO 
JMP START 

’ 

9 PUNCH LEADER/TRAILER 

; 

NULL? 
CALL LEAD 
JMP START 
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) PROGRAM A 1702A PROM 


’ 
3A83 PROG: 
3A83 oc INR ¢ 
3A84 CD593D CALL EXPR y HL & TOP AFTER RETURN 
3A87 CDAD3C CALL CRLF 
3ABA C1 POP B 9 C <* PROM ADDRESS 
3A8B D1 POP D y HIGH ADDRESS 
3ABC Ei POP H 3 LOW ADDRESS 
3ABD PROS 
3A8D 0603 MVI B,3 y RETRY COUNT 
3A8F PR18 
3ASF 3E00 MVI A,ENB 
3A94 D301 OUT PROMC } ENABLE PROM PROGRAMMER 
3A93 19 MOV A,C 
3A94 D3FF OUT OFFH } DISPLAY ADDRESS 
3A96 2F CMA 
3A97 D302 OUT PAD 3 PROM ADDRESS 
3A99 DBO2 IN PDI 
3A9B 2F CMA 
3A9C BE CMP M 
3A9D CADS3A Jz PR2 y DON’T HAVE TO PROGRAM THE LOC 
3AA0 TE MOV A, 
3AAL ar CMA 
3AA2 D303 OUT PDO y OUTPUT DATA 
3AA4 3E80 MVI A,PROGO 
3AA6 D301 OUT PROMC y PULSE IT 
3AAB CDS63E CALL PDLY y DELAY 520 MSEC 
3AAB 3E00 MVI A,PRONO 
3AAD D301 OuT PROMC y CLEAR PULSE 
3AAF CDO53D CALL DELAY y DELAY 2,0 MSEC, 
3AB2 CD053D CALL DELAY } DELAY 2,0 MSEC, 
3AB5 CDO53D CALL DELAY y DELAY 2.0 MSEC, 
3AB8 DBO2 IN PDI 
3ABA 2F CMA 
3ABB BE CMP M 
3ABC CADS3A JZ PR2 » COMPARE OK 
3ABF cs PUSH B 
3ACO 0E24 MVI C,°s’ 
3AC2 CD323C CALL co 
3AC5 Ci POP B 
3AC6 05 DCR B 
3AC7 C28F3A JNZ PR1 
3ACA 41 MOV B,C 
3ACB CD303C CALL BLK } OUTPUT A SPACE 
3ACE 78 MOV A,B } DISPLAY PROM ADDRESS 
3ACF CDBO3D CALL LBYTE 
3AD2 €3203¢ UMP LER } BAD PROM, ABORT 
3AD5 PR2% 
3ADS5 oc INR c y) INCREMENT PROM ADDRESS 


3AD6 CD8D3D CALL HILO 
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3AD9 =D2eD3A JNC PRO 
3ADC = C36 A388 UMP START 
i] 
} READ ROUTINE, READ A BINARY TAPE 
' 
3ADF READ? 
3ADF OD DCR C ) GET ONE ADDRESS 
3AEO CDS93D CALL EXPR 
3AB3 REDO 
3AE3. EL POP H ) GET BIAS ADDRESS 
3AE4 ES PUSH H 
3AE5 CDEE3E CALL RIX 
3AE8 063A MVI B,’3? 
3AEA 90 SUB B 
3AEB = C2E33A JNZ REDO } SCAN TO RECORD MARK 
3AEE 57 MOV D,A } CLEAR CHECKSUM 
3AEF CDS5F3C CALL BYTE 
3AF2. CA153B Jz RED2 } ZERO RECORD LENGTH, ALL DONE 
3AFS SF MOV E,A } E <»* RECORD LENGTH 
3AF6 CDSF3C CALL BYTE } GET MSB OF LOAD ADDRESS 
3AFQ OFS PUSH PSW } SAVE IT 
3AFA  CD5F3C CALL BYTE } GET LSB OF LOAD ADDRESS 
3AFD C4 POP B ) RETRIEVE MSBy PUT IN B 
3AFE 0 4F MOV Cra 
3AFF 09 DAD B ) BLAS ADDRESS + LOAD ADDRESS »> HL 
3800 CDSF3C CALL BYTE } RECORD TYPE 
3B03 RED1t 
3803 CD5F3C CALL BYTE » READ DATA 
3806 77 MOV M,A } PUT IN MEMORY 
3807 = 23 INX H 
3808 1D DCR E 
3809 C€2033B JNZ RED } LOOP UNTIL DONE 
3B0C CDSF3C CALL BYTE } READ CHECKSUM 
3B0F C€2203C JNZ LER } CHECKSUM ERROR 
3B12  C3E33A UMP REDO } GET ANOTHER RECORD 
3815 RED2? 
3B15 CDSF3C CALL BYTE } GET MSB OF TRANSFER ADDRESS 
3818 67 MOV K,A 
3819 CDS5F3C CALL BYTE 
3B1C «OF MOV LA 
3B1D B4 ORA H 
3B1E CA223B JZ RED3 ) IF TRANSFER ADDRESS = 0, RETURN TO KB 
3821 «£9 PCHL 
3822 RED33 
3822. EL POP H 
3823 C36A38 JMP START 


U 
3 SUBSTITUTE ROUTINE, MODIFY RAM MEMORY WITH KEYBOARD INPUTS 


’ 
3B26 SUBS: 
3B26 oD DCR Cc 
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3B27 CD593D CALL EXPR » GET ONE ADDRESS 
3B2A CD493E CALL P2Cc 
3B2D DA6A38 Jc START 
3B30 Ei POP H 
3B31 SU0r 
3B31 TE MOV A,yM 
3B32 CDB03D CALL LBYTE y DISPLAY DATA 
3B35 OE2D MVI C,'t=? 
3B37 €D323C CALL co 
3B3A CD463E CALL PCHK 
3B3D DA6A38 Je START ) CR ENTERED, RETURN TO COMMAND MODE 
3B40 CASO3B Jz Sut } SPACE ENTERED, SPACE BY 
3B43 E5 PUSH H 3 SAVE MEMORY ADDRESS 
3B44 CD853D CALL EXF » GET NEW VALUE 
3B47 Di POP D 9 E 8 VALUE 
3B48 Ei POP H y RESTORE MEMORY ADDRESS 
3B49 73 MOV M,E 3 STORE NEW VALUE 
3B4A 78 MOV A,B » TEST DELIMITER 
3B4B FEOD CPI CR 
3B4D CA6A38 JZ START y CR ENTERED AFTER LAST SUBSTITUTION 
3BS0 SUis 
3B50 23 INX H 
3851 C33138 JMP suo 
} 
y TRANSFER CONTENTS OF A PROM TO MEMORY 
’ 
3B54 TRANS 
3BS4 oD DCR Cc 
3B55 CD593D CALL EXPR ) GET ONE ADDRESS 
3558 Ei POP H y HL = MEM ADR 
3B59 1E00 MVI E,0 y COUNT/PROM ADDRESS 
3B5B TRO? 
3B5B 3E00 . MVI A, ENB 
3B5D D301 OUT PROMC 9 ENABLE PROM PROGRAMMER 
3BSF 78 MOV A,E 
3B60 aF CMA y INVERT ADDRESS 
3561 D302 OUT PAD 9 SET PROM ADDRESS 
3B63 DBO2 IN PDI 3 GET PROM DATA 
3B65 2F CMA 
3866 717 MOV M,A y PUT IN MEMORY 
3B67 23 INX H » BUMP MEMORY POINTER 
3B68 ic INR E y BUMP PROM POINTER 
3869 C25B38 JNZ TRO » GET ANOTHER BYTE 
3B6C C36A38 UMP START 
’ 
y WRITE ROUTINE, WRITE A BINARY TAPE 
3B6F WRITES 
3B6F CD593D CALL EXPR y GET TWO ADDRESSES 
3B72 CDAD3C CALL CRLF 


3875 D1 POP D 3 GET HIGH ADDRESS 
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i 
» EXAMINE AND 


3B76 El 
3877 WRIO$ 
3B77 7D 
3B78 C610 
3B7A 4F 
3B7B 7c 
3B7C CE00 
3B7E 47 
3B7F 78 
3B80 91 
3B81 4F 
3682 7A 
3B83 98 
3B84 DA8C3B 
3B87 3E10 
3B89 C38F3B 
358C WRI13: 
3B8C 719 
3B8D C611 
3B8F WRI23 
3B8F BT] 
3B90 CA6A38 
3B93 DS 
3B94 SF 
3B95 1600 
3B97 CD623E 
3B9A OE3A 
3B9C CD6C3E 
3B9F 7B 
3BAO CD2B3E 
3BA3 CD233E 
3BA6 AF 
3BA7 CD2B3E 
3BAA WRI33 
3BAA TE 
3BAB 23 
3BAC CD2B3E 
3BAF 1D 
3BB0 C2AA3B 
3BB3 AF 
3BB4 92 
3B8B5 CD2B3E 
3BB8 Di 
3BB9 C37738 
} 
3BBC Xt 
3BBC CO6D3F 
3BBF 21AC3F 


3BC2 X03 


POP 


CALL 
LxI 


AyM 
H 
PBYTE 
E 
WRI3 
A 


D 
PBYTE 
D 
WRIO 
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, 


GET LOW ADDRESS 


RECORD LENGTH ®& 16 


LAST RECORD 


SAVE HIGH ADDRESS 
E = LENGTH 

CLEAR CHECKSUM 
PUNCH CR,LF 


PUNCH LENGTH 
PUNCH ADDRESS 


PUNCH RECORD TYPE 


PUNCH DATA 
DECREMENT LENGTH 
CONTINUE LOOPING 


PUNCH CHECKSUM 
RESTORE HIGH ADDRESS 


MODIFY CPU REGISTERS 


TI 


H, ACTBL 


’ 
’ 


GET REGISTER IDENTIFIER 
POINT TO ACCESS TAFLE 


ERRURS = 0 PAGE 20 
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3BC2 BE CMP M 

3BC3 CAD33B Jz X1 

3BC6 F5 PUSH PSW 3 SAVE CHARACTER 

38C?7 TE MOV AM y NOT THE RIGHT REGISTER 
3BC8 B7 ORA A 

3BC9 FA203C JM LER y END OF TABLE 

3BCC 23 INX H 

3BCD 23 INX H 

3BCE 23 INX H 

3BCF Fi POP PSW y RETRIEVE CHARACTER 

3BDO C3C238 JMP X0 

3BD3 X13 

3BD3 CD303C CALL BLK 

3BD6 X23 

3BD6 23 INX H 

3BD7 TE MOV AyM » DISPLACEMENT 

3BDe EB XCHG y SAVE HL IN DE (HL = POINTER TO ACTBL) 
3BD9 oF MOV L,A 

3BDA 2600 MVI H,0 

3BDC 39 DAD SP 

3BDD EB XCHG y RESTORE HL 

3BDE 23 INX H 

3BOF 46 MOV By,M y PRECISION; 

3BE0 23 INX H ) POINT AT NEXT REGISTER IDENTIFIER 
3BEi 1A LDAX D 9 8/16 BIT DISPLAY AND MODIFICATION 
3BE2 CDBO3D CALL LBYTE + MSB OF 16 BIT REG, ALL OF 8 BIT REG 
3BE5 05 DCR B 

3BE6 CAEE3B Jz X3 + @ BIT DISPLAY 

3BE9 1B DCX D 

3BEA iA LDAX D 

3BEB CDBO3D CALL LBYTE ) LSB OF 16 BIT REG 

3BEE X33 

3BEE 04 INR B 

3BEF OE2D MVI C, *=" 

3BF4 CD323C CALL co 

3BF4 CD463E CALL PCHK 3} SKIP IF NULL ENTRY 

3BF7 DA6A38 Jc START y CR ENTERED, RETURN TO COMMAND MODE 
3BFA CA123C JZ X5 

3BFD £5 PUSH H » SAVE POINTER TO ACTBL 

3BFE cs PUSH B 4 SAVE PRECISION 

3BFF CD853D CALL EXF 3 GET NEW REG VALUE 

3C02 E1 POP H 

3C03 Fi POP PSW y A @ PRECISION 

3004 cs PUSH B 3 B & DELIMITER CHAR 

3C05 FS PUSH PSW s A = PRECISION 

3C06 7D MOV A,L 

3C07 12 STAX D 9 STORE LSB IN REGISTER AREA 
3C08 C1 PoP B y RETRIEVE PRECISION 

3C09 05 DCR B 

3COA CAi103C JZ X4 3 @ BITS ONLY 

3C0D 13 INX D 
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3C0E 
3C0F 
3C10 
3C10 
3C11 
3C12 
3C€12 
3C13 
3C14 
3C17 
3C18 
3C1A 
3C1D 


3C20 
3€20 
3023 
3026 
3€27 
3C26 
3C2A 
3C2D 


3C€30 
3C€30 


3032 
3C32 
3C35 
3C37 
3C3A 
3C3A 
3C3C 
3C3E 
3C41 
3C42 
-3C43 
3€45 
3046 
3046 
3C48 
3C4B 
3C4B 


B7 


1iF8FF 


CD323¢ 
C36A38 


0E20 


3A0300 
E603 
C2463C 


DBO1 
E604 
C23A3C 
719 

2F 
D300 
cg 


FEO. 
C2573C 


DBOS 


MOV 
STAX 
X43 


X51: 


U 
3 ERROR EXIT 


3 

LER? 
CALL 
LXI 
DAD 
SPHL 
MVI 
CALL 
JMP 


: 
y SUBROUTINES 
’ 
BLK: 

MVI 


OC) se we se we we 


03 
LDA 
ANI 
JNZ 
TTYOUTs 
IN 
ANI 
JNZ 
MOV 
CMA 
OUT 
RET 
coos 
Cpl 
JNZ 
CRTOUT3 
IN 


MEMSIZ 
D,=#8 
D 


Cig tae 


co 
START 


Cee , 


A,FLAGS,C MODIFIED 


IOBYT 
NOT CMSK 
coo 


TTS 
TTYBE 
TTYOUT 
a,c 
TTO 
CCRT 
CO3 


CRTS 


8080 MONITOR, VERSION 1,0 ERRORS # O PAGE 22 


EXTERNALLY REFERENCED ROUTINE 
CONSOLE OUTPUT CODE, 


STORE MSB IN REGISTER AREA 


RETRIEVE DELIMITER CHAR 


TEST FOR END OF TABLE 


TEST DELIMITER 


COMPUTE TOP OF MEMORY 


RESET STACK POINTER ON ERROR RETURN 


PRINT A BLANK 


VALUE EXPECTED IN C 


~e ~e wo <e 


CONSOLE OUTPUT 
GET STATUS BYTE 
GET CONSOLE BITS 
TEST FOR CRT 
CONSOLE = TTY 
LOOP UNTIL READY 
OUTPUT CHARACTER 
RETURN 


CONSOLE = CRT? 
TEST FOR BATCH 


CONSOLE # CRT 
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3C4D E604 ANI CRTBE 

3C4F C24B3C JNZ CRTOUT y) LOOP UNTIL READY 

3¢€52 719 MOV A,C 

3C€53 aF CMA 

3C54 D304 OUT CRTO 

3C56 cg RET 

3¢57 C033 

3C57 FEQ2 CPI BATCH 

3€59 CACC3D Jz LO 3 BATCH MODE, OUTPUT & LIST 

3C5C €30337 JMP COLOC » BRANCH TO USER CONSOLE OUTPUT 
’ 
READ TWO ASCII CHARACTERS, DECODE INTO 8 BITS BINARY 
’ 

3CSF BYTE: 

3C5F CDEE3E CALL RIX y READ CHAR FROM TAPE 

3C62 CDOO3E CALL NIBBLE 9 CONVERT ASCII TO HEX 

3C65 07 RLC 

3C66 07 RLC 

3067 07 RLC 

3C68 07 RLC } SHIFT FOUR PLACES 

3C69 4F MOV CrA 

3C6A CDEE3E CALL RIX 

3C6D CDO03E CALL NIBBLE y GET LOWER NIBBLE 

3C70 B1 ORA Cc 

3C71 4F MOV Cra 

3C72 82 ADD D y UPDATE CHECKSUM 

3C73 57 MOV D,A 

3C74 19 MOV A,C 

3C75 c9 RET j RETURN 


’ 

» EXTERNALLY REFERENCED ROUTINE 

y CONSOLE INPUT CODE, VALUE RETURNED IN A 
» A, FLAGS MODIFIED 


3¢76 Cis } CONSOLE INPUT 
3€76 30300 LDA 1OBYT } GET STATUS BYTE 
3079 £603 ANI NOT CMSK ) GET CONSOLE BITS 
3C7B C2893C INZ C14 } TEST FOR CRT 
3C7E TTYINt 
3C7E = DBO1 IN TTS ) TTY STATUS PORT 
380 © E601 ANI TTYDA ) CHECK FOR DATA AVAILABLE 
3C82  C27E3C JNZ TTYIN 

— 3C85 DBOO IN TTT ) READ THE CHARACTER 
3C87 clos 
387 9 aF CMA 
3680 C9 RET } RETURN 
3c89 Cli: 
3¢89 FEO CPI CCRT ) CONSOLE = CRT? 
3C8B © C29A3C JNZ C12 } TEST FOR BATCH 
3C8E CRTINg 


3C8E DBOS IN CRTS 9 CRT STATUS PORT 
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3C90 
3€92 
3C95 
3C97 
3C9A 
3C9A 
3C9C 
3COF 


3CA2 
3CA2 
3CA4 
3CA7 
3CA9 
3CA9 
3CAB 
3CAC 


3CAD 
3CAD 
3CAF 
3CB2 
3CB2 
3CB4 


3CB7 
3C87 
3CBA 
3CBC 
3CBF 
3CC1 
3cC4 
3CC4 
3CC6 
3ccg9 
3CCB 
3CCB 
3ccD 
3CCF 
3CCF 
3cD0 
3CD1 
3CD2 


E601 
C28E3C 
DBO4G 
C3873C 


FEO2 
CA943E 
C30037 


OQEOD 
CD323C 


OEOA 
C3323C 


3A0300 
E603 
C2c43C 
DBO1 
C3cB3C 


FEOi 
C2023C 
DBOS 


E601 
3E00 


co 
2F 
cg 
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CHECK FOR DATA AVAILABLE 
NOT READY, CONTINUE LOOPING 
READ THE CHARACTER 


BATCH MODE, INPUT # READER 
CONSOLE # USER DEVICE 


} LESS THAN 107 (0*9) 


ADJUST OF (A®*F) 


ADD BIAS FOR ASCII 


ANI CRTDA ] 
JNZ CRTIN ’ 
IN CRITI ’ 
JMP om ae) 
C12: 
CPI BATCH 
Jz RI ’ 
UMP CcILoc j 
5 
y CONVERT 4 BIT HEX VALUE TO ASCII CHARACTER 
i 
CONV? 
CPI 10 
JM CNo 
ADI *A% oO" =10 H 
CNO8 
ADI "0° 3 
MOV C,A 
RET ) 


TYPE CARRIAGE RETURN AND LINE 


RLF3 
MVI C,CR , 
CALL co 
LFX3 
MVI C,LF ’ 
JMP co 


U 

) EXTERNALLY REFERENCED ROUTINE 
y CONSOLE INPUT STATUS CODE 

y A, FLAGS MODIFIED 
} 
Cc 


STS: 


; 
LDA IOBYT 1 
ANI NOT CMSK : 
UNZ cso : 
IN TTS } 
UMP Csi 
CSO: 
cpr CCRT 
UNZ Cs3 
IN CRTS ; 
CSi3 
ANI TTYDA 
MVI A, FALSE } 
cSs2t 
RNZ 
CMA 
RET ! 
CS31 


RETURN 


FEED ON CONSOLE 


<CR> 


<LF> 


CONSOLE INPUT STATUS 
GET STATUS BYTE 
CONSOLE = TTY? 
CONSOLE © CRT 

GET TTY STATUS 


GET CRT STATUS 


RETURN FALSE IF NO DATA AVAILABLE 


RETURN 
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3CD2 
3CD4 
3CD6 
3€D9 


3cDCc 
3cDc 
3CDF 
3CE1 
3CE4 
3CE6 
3CE6 
3CE9 
3CEB 


3CEE 
3CEE 
3CEF 
3CFO 
3CFi 
3CF4 
3CF7 
3CcF9 
3CFC 
3CFD 
3CFD 
3scrr 
3D02 


3D05 
3D05 
3D06 
3007 
3009 
3D0B 
3D0B 
3D0C 
3D0C 
3D0D 
3D10 
3D141 
3D14 
3D15 
3D16 


FEO2 
3EFF 
CACF3C 
C31837 


CDEE3E 
FE42 
C2DC3Cc 
3601 


CDEE3E 
FE4E 
C2FD3C 


7E 

17 

V7 
D2E63C 
CDEE3E 
FE46 
C2203C 
cg 


C6B0 
€2203C 
C3EE3C 


F5 
cs 
3E14 
o60C 


48 


oD 
C20C3D 
3D 
€2083D 
C1 
Fi 
C9 


BATCH 
A, TRUE 
CS2 

CsLoc 
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’ 
) READ BNPF TAPE RECORD, BUILD BYTE, STORE IN MEMORY 
} IF ERROR, ABORT COMMAND 


u 

DECODE3 
CALL 
cel 
JNZ 
MVI 

DCOs 
CALL 
CPI 
JNZ 


DCis 
MOV 
RAL 
MOV 
JNC 
CALL 
CPI 
JNZ 
RET 

0C2: 
ADI 
JNZ 
JMP 


2.0 MS DELAY 


PUSH 
PUSH 
MvI 
MVI 


MOV 


DCR 
JNZ 
DCR 
JNZ 
POP 
POP 
RET 


RIX 
Be 
DECODE 
Myd 


RIX 
on? 
DC2 


A,M 


M,A 
DCO 
RIX 
ope 
LER 


e'pe 
LER 
oci 


C,8 


c 
DLi 
K 
DLO 
B 
PSW 


READ TAPE 
SCAN FOR °B? 


INITIALIZE MEMORY 
GET DATA 

CHECK FOR ‘N* 

NQ, CHECK FOR ’P* 
CARRY # 0 

SHIFT IN DATA BIT 


IF CARRY IS SET, 8 BITS READ 
TEST FOR REQ*°D °F* 


RETURN 


ERROR 
CARRY IS SET 


100 MICROSECOND INNER LOOP 


RETURN 


3 
y CONVERT BINARY NUMBER TO A STRING OF ASCII DIGITS 


ERRORS = 0 PAGE 25 
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3D17 
3D17 
3D19 
3D19 
3DiA 
3D1B 
301¢ 
3D1iD 
3DiE 
3D1F 
3D22 
3D23 
3D26 
3D26 
3D27 
3D28 
3D2A 
3D2D 
3D2E 
3D2E 
3D31 
3031 
3D33 


3D36 
3D36 
3D38 
3038 
3D3D 
3D3E 
3D3E 
3D3F 
3D40 
3D42 
3D43 
3D44 
3D46 
3D47 
3D4A 
3D4B 
3D4C 
3D4F 
3D51 
3054 


0E30 


7D 
93 
6F 
rie 
9A 
67 
DA263D 
oc 
C3193D 


C36C3E 


0630 
C32E3D 


OE42 
CD6C3E 
0608 
7E 


07 

Fs 
3E00 
17 

17 
C64E 
4F 
CD6C3E 
F4 

05 
C23E3D 
O£46 
CD6C3E 
QE20 


» HL = BINARY NUMBER 

3 DE © DIVISOR (DESCENDING POWERS OF 10) 
» B © LEADING ZERO SUPRESSION CHARACTER 
3 A,C © TEMPORARIES 


DIGIT: 
MVI C770" y INITIALIZE CHARACTER 
DGO3 
MOV A,L 5 SUB DENOM (DE) FROM NUMERATOR (HL) 
SUB E 
MOV L,A 
MOV A,H 
SBB D 
MOV H,A 
Jc DGi 9 NEGATIVE RESULT, ALL DONE 
INR c y COUNT NUMBER OF SUBTRACTS 
JUMP DGO 
DGit 
DAD D 3 ADJUST HL 
MOV A,Cc 
CPI "0" y CHECK FOR LEADING ZERO SUPPRESSION 
JNZ DG3 
MOV C,B 
DG2! 
JUMP PO 9 PUNCH CHARACTER 
DG33 
MYI B,’0* 
JMP DG2 


’ 
3 ENCODE A BPNF WORD AND PUNCH IT 
i 


ENCODE? 
MVI Cr? Bi } PUNCH A °B? 
CALL PO 
MVI B,8 9 @ BIT COUNT 
MOV A,M y GET DATA 
ENO$ 
RLC yj ROTATE TO SET CARRY 
PUSH PSW 9 SAVE INTERMEDIATE RESULT 
MVI A,O 3 COMPUTE EITHER °P’ OR °N® 
RAL yj BASED ON FOLLOWING ALGORITHM? 
RAL y CHAR @ °N® + 2#CARRY 
ADI oN? 9 CHAR & *N*’ IF CARRY & 0 
MOV C,A » CHAR w °P* IF CARRY & 1 
CALL PO 
POP PSW 
DCR B 
JNZ ENO 
MVI C, °r’ 
CALL PO 
MVI Cc,” * 


8080 MACRO ASSEMBLER, VER 1,1 8080 MONITOR, VERSION 1,0 ERRORS @ 0 PAGE 27 


3056 C36C3E uMP PO 
; 
} EVALUATE EXPRESSIONS <EXPR>,<EXPR>,<EXPR> 
, 
3059 EXPR: 
3D59 210000 LXI H,O ) INITIAL VALUE OF PARAMETER 
3D5C EX03 ; 
305C CD6D3F CALL TI } GET A CHARACTER ayhenr f Cary 
3D5F EXi: ee Ma, oh. Beever 
305F 47 MOV B,A 3 SAVE DELIMITER CHARACTER “~~ /% 
3D60 CDOO3E CALL NIBBLE » CONVERT TO HEX = 
3D63  DA6F3D Jc EX2 } NOT LEGAL CHAR, TREAT AS DELIMITER 
3D66 29 DAD H 9 *2 
3D67 29 DAD 3 #4 
3068 =. 29 DAD H 1 #8 
3069-29 DAD H ) #16 
3D6A BS ORA L 
3D6B 6F MOV L,A 
3D6C =©€35C3D UMP EX0 ) GET ANOTHER CHARACTER 
3D6F EX23 
3D6F 3 XTHL } GET RETURN ADDRESS OFF STACK 
) PUT HL ON 
3D70~=s «ES PUSH H } REPLACE RETURN ADDRESS 
3Dite- 78 MOV A,B 
3072 CD493E CALL P2c } TEST DELIMITER CHARACTER 
3D75 D27D3D UNC EX3 
3078 oD DCR C } CR ENTERED 
3079 €2203C JINZ LER ) TOO FEW PARAMS 
307¢ = 9 RET 
3D7D EX33 
3D7D ©2203C UNZ LER y ILLEGAL DELIMITER 
3D80 oD DCR ¢ 
3081 C2s93D UNZ EXPR 
3D84 © ¢9 RET 
3085 EXFs ) ENTRY POINT FOR CONDITIONAL PARAMETERS 
3D85 = 0E01 MVI Cod 
3D87 210000 LXI H,O 
3D8A C3S5F3D UMP EX1 
] 
} COMPARE HL WITH DE? 
; IF HL < DE THEN CARRY = 0} 
} IF HL = DE THEN CARRY = 03 
} IF HL > DE THEN CARRY = 1) 
H] 
3D8D HILO: 
3D8D =—s_ 23 INX H } BUMP HL 
3D8E ©607C MOV A,H } TEST FOR HL = 0 
3D8F BS ORA ie 
3090 37 sTc 
3091 CB RZ 


3D92 78 MOV A,E 3 DE = HL, SET/RESET CARRY 
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3093 
3D94 
3D95 
3D96 


3D97 
3D97 
3D9A 


3D9D 
3D9D 
3DAO 


3DA1 
3DA1 
3DA2 
3DAS 
3DA6 
3DA7 


3DA8 
3DA8 
3DA9 
3DAC 
3DAD 


3DBO 
3DB0 
3081 
3DB2 
3DB3 
3084 
3DB5 
3DB7 
3DBA 
3DBB 


CDA23C 
C3323C 


3A0300 
cg 


we we we we 


XD3 
CALL 
JMP 


Ht we se we te we 


OCHKs: 
LDA 
RET 
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TELEPRINTER 


CONV 
co 


IoOByT 


EXTERNALLY REFERENCED ROUTINE 
I/O SYSTEM STATUS CODE 
STATUS BYTE RETURNED IN A 


; 
’ 


EXTERNALLY REFERENCED ROUTINE 
SET I/0 CONFIGURATION 


OSETs 
PUSH 
LXI 
MOV 
POP 
RET 


3 
U 
5 
y VALUE EXPECTED IN C 
$ 
I 


’ 
’ 


i 
, 


RETURN 


CONVERT NIBBLE IN A*REGISTER TO ASCII IN A*REGISTER 
AND PRINT ON 


GET STATUS BYTE 


RETURN 

SAVE HL 

POINT HL AT IOBY1 
RESTORE HL 

RETURN 


' 
3 PRINT CONTENTS OF HL IN HEX ON CONSOLE DEVICE 


; 

LADR: 
MOV 
CALL 
MOV 
JUMP 


’ 
» LIST A BYTE 


1 

LBYTE?3 
PUSH 
RRC 
RRC 
RRC 
RRC 
ANI 
CALL 
POP 
ANI 


A,H 
LBYTE 
A,L 
LBYTE 


PRINT MSB 
PRINT LSB 


AS 2 ASCII CHARACTERS 


PSW 


OFH 
HXD 
PSW 
OFH 


SAVE A COPY OF A 


UPPER 4 BITS 


RETRIEVE ORIGINAL VALUE 
LOWER 4 BITS 
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3DBD C3973D UMP HXD 
’ 
$ PUNCH 6 INCHES OF LEADER 
U 
3DCO0 LEAD?! 
3DCc0 063C MVI B,60 » SET TO PUNCH 6 INCHES OF NULLS 
3DC2 LEO? 
3DC2 OE00 MVI c,0 
3DC4 CD6C3E CALL PO 
30C7 05 DCR B 
3DC8 C2C23D JNZ LEO 
3DCB cg RET ) RETURN 


EXTERNALLY REFERENCED ROUTINE 
LIST OUTPUT CODE 
VALUE EXPECTED IN C 


It we 0 we we we 


30Cc Os 3 LIST OUTPUT 
3DCC 3A0300 LDA IOBYT 9 GET STATUS BYTE 
3DCF E6CO ANI NOT LMSK » GET LIST BITS 
3DDy CAZA3C Jz TTYOUT 3 LIST s TTY 
3DD4 FE40 CPI LCRT 
3DD6 CA4B3C JZ CRTOUT y LIST 2@ CRT 
3DD9 FESO CPI LUSE1 3 TEST FOR USER DEFINED LIST DEVICES 
3DDB CA1237 JZ L4iLac » BRANCH TO USER DEVICES 
JODE C31537 JMP L2L0c 
5 
y EXTERNALLY REFERENCED ROUTINE 
3 RETURN ADDRESS OF END OF MEMORY TO USER 
y VALUE RETURNED IN (B,A) 
’ 
3DE1 MEMCK 
3DE1i ES PUSH H 
3DE2 CDEA3D CALL MEMSIZ 
3DE5 44 MOV B,H 
3DE6 3ECO MVI A,OCOH 
3DE8 E} POP H 
3DE9 c9 RET 
, 
} FIND END OF MEMORY, SET STACK 
’ 
3DEA MEMSIZ? 
3DEA C5 PUSH B y SAVE BC 
3DEB 210000 LXI H,0 3 FIND END OF MEMORY 
3DEE MEMO? 
3DEE 46 MOV B,M y FETCH CONTENTS OF MEMORY 
3DEF 36AA MVI M,OAAH y ATTEMPT TO WRITE INTO MEMORY 
3DF1i TE MOY A,M » NOW READ IT 
3OF2 70 MOV M,B ) REPLACE ORIGINAL VALUE 
3DF3 24 INR H 
3DF4 FEAA CPI OAAH y IS LOCATION READ/WRITE? 
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3DF6 
3DF9 
3DFA 
3DFD 
DFE 
3DFF 


3£00 
3E00 
3E02 
3E03 
3E£05 
3E06 
3E08 
3E0B 
3E0D 
3E0E 
3EOE 
3E10 
3E11 


3E12 
3E12 
3E15 
3E17 
3E1A 
3E1A 
3E1iD 
3EiF 
3E22 


3E23 
3E23 
3E24 
3E27 
3E28 


3E2B 
3E28 
3E2C 
3E2D 
3E2E 
3JE2F 


CAEE3D 


CD6D3F 
FE3D 
C2123E 


CD6D3F 
FE20 
CALA3E 
c9 


7c 
CD2B3E 
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JZ MEMO } YES, CONTINUE 
DCR x ) POINT TO FIRST NON*RAM LOCATION 
LXI By EXIT*ENDX ) COMPUTE TOP OF NEw STACK 
DAD B 
POP B } RESTORE BC 
RET ) RETURN 
i] 
} DECODE ASCII CHAR IN AsREGISTER INTO HEX DIGIT IN AeREGISTER 
HU 
NIBBLE3 
SUI roe 
RC 
ADI *0%e"G’* 
RC 
ADI 6 
uP NIO 
ADI 7 
RC 
N103 
ADI 10 
ORA A 
RET ) RETURN 
3 
} DISREGARD NOISE CHARACTERS 
’ 
NOISES 
CALL TI 
CPI s? 
INZ NOISE 
NOO? 
CALL TI 
CPI re 
Jz NOO 
RET ) RETURN 
' 
} PUNCH CONTENTS OF HL IN REX ON PUNCH DEVICE 
’ 
PADR} 
MOV A,H 
CALL = PBYTE 
MOV AyL 
JMP PBYTE 


4 
3 PUNCH A BYTE AS 2 ASCII CHARACTERS 


, 

PBYTE? 
PUSH 
RRC 
RRC 
RRC 
RRC 


PSW 


ERRORS = 0 PAGE 30 


8080 MACRO ASSEMBLER, VER 161 


3E30 
3E32 
3E35 
3E38 
3E39 
3E3A 
3E3C 
3E3F 
3E42 
3E43 
3E44 
3E45 


3E46 
3E46 
3E49 
3E49 
3E4B 
3E4C 
JE4E 
3E4F 
3E$1 
3E52 
3E53 
3E54 
3E55 


3E56 
3E56 
3£57 
3E59 
3E59 
3ESC 
3ESD 
3E60 
3E64 


3E62 
3E62 
3E64 
3E67 
3E69 


E60F 
CDA23C 
CD6C3E 
Fi 

F5 
E60F 
CDA23C 
CD6C3E 
Ei 

82 

57 

cg 


CD6D3F 


C5 
O6FF 


Cb0s3D 
0s 
C2593E 
C1 
cg 


OEOD 
CD6C3E 
OEOA 
C36C3E 


ANI 
CALL 
CALL 
POP 
PUSH 
ANI 
CALL 
CALL 
POP 
ADD 
MOV 
RET 
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OFH 
CONV 
PO 

PSW 
PSW 
OFH 
CONV 
PO 

PSW 
D 

D,A 

3 RETURN 


’ 
y TEST FOR NULL INPUT PARAMETER 


5 
PCHK?3 

CALL 
P2ce 


STC 
RET 


TI » GET A CHARACTER 


; 
y 520 MS DELAY FOR 1702A PROGRAMMING 


’ 

PDLY% 
PUSH 
MVI 

PDOs 
CALL 
DCR 
JNZ 
POP 
RET 


5 
) PUNCH CR,LF 
} 
PEOLt 
MVI 
CALL 
MVI 
UMP 


B 
B,LDLY 


DELAY 
B 
PDO 
B 
y RETURN 


C,CR 
PO 
C,LF 
PO 


’ 
y EXTERNALLY REFERENCED ROUTINE 
y PUNCH OUTPUT CODE, VALUE EXPECTED IN C 


ERRORS = 0 PAGE 31 


4 
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y A, FLAGS, AND C MODIFIED 


JE6C PO? y PUNCH OUTPUT 
3E6C 3A0300 LDA IOBYT » GET STATUS BYTE 
3E6F E630 ANI NOT PMSK 3 GET PUNCH BITS 
3E714 CA3A3C Jz TTYOUT y NO, PUNCH a» TTY 
3E74 FE10 CPI PPTP y TEST FOR PTP 
3£76 C28C3E JNZ POi ) TEST FOR USER DEVICE(S) 
3E79 POO: 3 PUNCH 2 PTP 
3E79 DBOI IN PTPS ) GET STATUS 
3E7B E640 ANI PRDY 9 CHECK STATUS 
3E7D CA793E JZ POO » LOOP UNTIL READY 
3E80 79 MOV A,C 
3E81 D303 OUT PTPO 
3E83 3EOA MVI A,PTPGO y START PUNCH 
3E85 D301 OUT PTPC 
3E87 3E08 MVI A,PTPNO ) STOP PUNCH 
3E89 D301 OUT PTPC 
3E8B ce RET 
3E8C PO1s 
3E8C FE20 CPI PUSE{ 
3E8E CA0C37 Jz PiLOC 
3E91 C30F37 JMP P2LOC 

$ - 

y EXTERNALLY REFERENCED ROUTINE 

y READER INPUT CODE 

3 VALUE RETURNED IN A, FLAGS MODIFIED 

, 
3E94 RI? y READER INPUT 
3E94 E5 PUSH H y SAVE HL 
3E95 210300 LXI H, IOBYT 3 POINT HL AT IOBYT 
3E98 TE MOV A,M 
3E99 E60C ANI NOT RMSK 3} READER = PTR? 
3E9B C2CO3E JNZ RI3 3 BRANCH TO PTR ROUTINE 
JE9E 3E09 MVI A,TTYGO ¢ READER a TTY 
3EAO D301 OUT TTC 
3EA2 3E08 MVI A,TTYNO 
JEA4 5301 OUT TTC 
JEA6 263C MVI H,60 3 SET TIMER 
“JEA8 RIO: 
JEA8 DBO1 IN TTS 
JEAA E601 ANI TTYDA 
3EAC CABA3E JZ RI2 3 DATA IS READY 
JEAF CD053D CALL DELAY y DELAY 2,0 MS 
3EB2 25 DCR H 
-3EB3 C2A83E JNZ R10 
JEBG RIi3 
3EB6 AF XRA A 
~3JEB7 37 $§TC 9 SET CARRY INDICATING EOF 
3EB8 Ei POP H 
3EB9 c9 RET. y RETURN 
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3BBA 
3EBA 
3EBC 
3EBD 
3EBE 
3EBF 
3ECO 
3ECO 
3EC2 
3ECS5 
3EC7 
3EC9 
3ECB 
3ECD 
3ECF 
3ECF 
3ED1 
3ED3 
3ED6 
3ED9 
3EDA 
3EDD 
3EEO 
3EEO 
—» JEE2 
3EE3 
3EE4 
3EE5 
3EES5 
3EE6 
3EE8 
3EEB 


3EEE 
3EEE 
3EFi 
3EF4 
3EF6 


3EF7 
3EF7 
3EF8 
3EF9 
3EFA 
3EFB 
3EFE 


C2CF3E 
C3B63E 


DBO3 
B7 
El 
c9 


Et 
FEOS8 
CA0637 
C30937 


CD943E 
DA203C 
E67F 
c9 


VER 1.1 
RI23 
IN TTI 
CMA 
ORA A 
POP H 
RET 
R133 
CPI RPTR 
JNZ RI6 
MVI A, PTRGO 
OUT PTRC 
MVI A,PTRNO 
OUT PTRC 
MVI H,7FH 
R143 
IN PTRS 
ANI PTRDA 
JNZ RI5 
CALL DELAY 
DCR H 
JNZ R14 
JUMP RI 
RIS3 
IN PTRI 
ORA A 
POP H 
RET 
R163 
POP H 
CPI RUSE 
JZ RL LOC 
JUMP R2LO0C 
’ 
» GET 


’ 
RIX3 
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» CLEAR CARRY 


} RETURN 
} PTR ROUTINE 


9 START PTR 
3 STOP PTR 


y SET TIMER TO MAX 250 MS, 


9 GET THE DATA 


} RETURN 


CHARACTER FROM READER, MASK OFF PARITY BIT 


CALL RI 
Jc LER 
ANI 7FH 
RET 


, 
y RESTART 1 CODE 
3 (PROGRAMMED BREAKPOINT) 


u 
RESTART3 


PUSH 
PUSH 
PUSH 
PUSH PSW 
CALL MEMSIZ 
XCHG 


wox 


y) RETURN 


y SAVE MACHINE STATE 


y HL = NEW STACK POINTER 


ERRORS = 0 PAGE 33 
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1 


3EFF 1 210400 


3F02 1 39 
3F03 0604 
3F05 EB 
3F06 
3F06 26 
3F07 Le 
3F08 ri) 
3F09 73 
3FOA Di 
3FOB 05 
3F0C C2063F 
3FOF C1 
3F10 08 
SFi4 F9 

i 
3F12 1 211400 
3F15 1 39 
3F16 TE 
SFT 91 
3F1i8 23 
3F19 C2213F 
3Fic 7E 
3F1D 90 
3FiE CA2F3F 
3F21 
3F21 23 
3F22 23 
3F23 7E 
3F24 91 
3F25 C22E3F 
3F28 23 
3F29 TE 
3F2A 90 
3F 28 CA2F3F 
3F2E 
3F2E 03 
3F2F 

1 
3F2F 1 210F00 
3F32 1 39 
SE 33 73 
3F34 23 
3F35 72 
3F36 23 
3F37 23 
3F38 ue 
3F39 23 
3F3A 70 


+ 


RSTO: 


RST1t 


VER 1,1 


FETCH 
LXI 
DAD 
MVI 


XCHG 


DCX 
MOV 
DCX 
MOV 
POP 
DCR 
JNZ 
POP 
DCX 
SPHL 
FETCH 
LXT 
DAD 
MOV 


10 
H,QQOQ0AH 
SP 

B,4 


~ 
=) 


- 
~ 


CwwDOVETEzT 
wn 
Le! 
o 


¢ 
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} COMPUTE ORIGINAL STACK POINTER 
} IN THE STACK 


y COUNT FOR TRANSFER OF MACHINE STATE 
y TO STORAGE (MOVE THE STACK) 


» GET OLD PC = B-Cs OLD HL = D,E 

y DECREMENT TO POINT AT TRAPPED CODE 
y NEW STACK VALUE 

y IN THE STACK 


9 TEST IF THIS IS A PROGRAMMED RESTART 
y OR A CONSOLE RESTART 


y IN THE STACK 


3 SAVE OLD HL 


} SAVE OLD PC 
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3F3B 
3F3C 
3F3E 
3F 41 
3F42 


3F45 
3F48 
3F49 
3F 4B 
3F 4B 
3F4Cc 
3F4E 
3F4F 
3FS0 
3F52 
3F53 
3FS4 
3FS5 
3F58 
3FS9 
3F5A 
3FSA 
3F5B 
3FSC 
3FSF 


3F62 
3F62 
3F65 
3F67 
3F6A 


3F6D 
3F6D 
3F70 
3F72 
3F73 
3F74 
3F77 
3F78 
3F79 


- 


39 


BO 


CD6D3F 
FEOD 

C2623F 
C3523¢ 


CD763C 


PUSH B 

MVI C,%u? 

CALL co 

POP H RETRIEVE OLD PC FOR DISPLAY 


CALL LADR 
FETCH TLOC 


DISPLAY PC 
CLEAR TRAPS 


LXI H,TLOC IN THE STACK 

DAD SP 

MVI D,2 } SET COUNT FOR TWO TRAPS 
RST44 

MOV CM } GET LSB OF ADDRESS 

MVI Mp0 } CLEAR MEMORY 

INX H 

MOV B,M ) GET MSB OF ADDRESS 

MVI M,0 

INX H 

MOV a,c 

ORA B } TEST FOR VALID TRAP 

JZ RSTS } ADDRESS = 0, NO TRAP TO RESTORE 

MOV AyM 3 GET OPCODE BYTE 

STAX B } REPLACE IT 
RSTSt 

INX H } POINT TO NEXT TRAP ADDRESS 

DCR D 

INZ RST4 ) REPEAT FOR TRAP 2 

UMP START 


SCAN TO END OF LINE 


~~ wo we 


CANOUT3 
CALL TI 
cel CR 
JNZ SCANOQUT 
JMP LFX 


INPUT FROM CONSOLE, ECHOED AND RETURNED IN A 


It 
CALL cl 
ANI 7FH 
PUSH B 
MOV CyA 
CALL co 
MOV A,C 
POP 5 
RET y RETURN 


5 

y I/O SYSTEM PHYSICAL DEVICE TABLES 

9 2 BYTES/ENTRY 

H BYTE OQ & INDENTIFYING CHARACTER 

: BYTE 1 = DEVICE SELECT BIT PATTERN 
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3F7A 
3F7A 
3F7C 
3F7E 
3F80 
3F82 
3F82 
3F84 
3F86 
3F88 
3F8A 
3F6A 
3F8C 
3F8E 
3F90 
3F92 
3F92 
3F94 
3F96 
3F98 


3F9A 
3F9A 
3F9B 
3F9C 
3F9D 
3F9E 
3F9F 
3FA0 
3FA4 
3FA3 
3FA4 
3FA6 
3FA8 
3FA9 
3FAB 
3FAC 


5400 
430} 
4202 
3103 


5400 
5004 
3108 
320C 


5400 
5010 
3120 
3230 


3400 
4340 
3180 
32C0 


D1 
Ci 
Fi 
El 
F9 
FB 
210000 


€30000 


U 
ICTs 


IRT: 


OPT? 


OLT: 


XIT3 


HLX 


PCX 
TLAs 


ENDX3 


VER 1.41 


EXIT CODE TEMPLATE, 


8080 MONITOR, VER 


or? SCTTLY 
*C* {CCRT 
°B’,BATCH 
*1°,CUSE 


pe FRTTY 
*p*,RPTR 
*1°,RUSE 
°2°,RUSE2 


‘Te PITY 
*P*’,PPTP 
°1°,PUSE1L 
°2°,PUSE2 


oT? PUTTY 
*C*,LCRT 
*1°,LUSEL 
°2°,LUSE2 


E POP D 
D 
Cc POP B 
B 


FLAGS POP PSW 


SPL POP H 
SPU SPHL 


H,$*s 


ooo°o 


=~ ~~ — = we ~ 


=e we we we 


' 
U 
, 
U 


~e ws we wo we 


=e we wo ws 


CONSOLE 
CONSOLE 
BATCH M 
USER DE 


READER 
READER 
USER DE 
USER DE 


PUNCH « 
PUNCH s 
USER DE 
USER DE 


LIST = 
LIST = 
USER DE 
USER DE 


TO BE EXECUTED IN 


MONITOR 


MONITOR 
RESTORE 
RESTORE 
RESTORE 
RESTORE 


ENABLE 
RESTORE 


RETURN 


TRAP 1 
TRAP 1 
TRAP 2 
TRAP 2 


SION 1,0 ERRORS © 0 PAGE 


= TTY 

= CRT 
ODE CONSOLE = READ,LIST 
FINED CONSOLE DEVICE 


a TTY 
2 PTR 
FINED READER DEVICE 1 
FINED READER DEVICE 2 


TTY 

PTP 
FINED PUNCH DEVICE 4 
FINED PUNCH DEVICE 2 


Ty 
CRT 
FINED LIST DEVICE 1 
FINED LIST DEVICE 2 


RAN 
WORK STACK ORIGIN 


STACK ORIGIN 

D,E 

B,C 

A AND FLAGS 

ORIGINAL STACK VALUE 


INTERRUPTS 
Heb 


TO INTERRUPTED CODE 


ADDRESS 
VALUE 
ADDRESS 
VALUE 


U 
s DISPLACEMENT OF REGISTER LOCATION FROM SP (LEVEL 0) 


36 
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0005 
0003 
0002 
0001 
0000 
0004 
0010 
OOOF 
0013 
0007 
0014 


3FAC 
3FAC 
3FAF 
3FB2 
3FBS5 
3FBe 
3FBB 
3FBE 
3FC4 
3FC4 
3FC7 
3FCA 
3FCD 


NO PROGRAM ERRORS 


410501 
420301 
430201 
440101 
450001 
460401 
481001 
4COFO1L 
4D1002 
501302 
530702 
FF 


’ 

ALOC 
BLOC 
cLoc 
DLOC 
ELOC 
FLOC 
HLOC 
LLOC 
PLOC 
SLOC 
TLOC 


J 
U 
' 
U 
U 
’ 
A 


, 
9 END 


CTBLs 


VER tel 


EQU 
EQU 
EQu 
EQU 
EQu 
EQu 
EQU 
EQU 
EQU 
EQu 
EQU 


8080 MONITOR, VERSION 1,0 


f&oenwu 


HLXeEXIT¢+9 
HLX*EXIT+#8 
PCX@EXIT+9 
7 

TLASPEXIT+8 


’ 

TABLE FOR ACCESSING REGISTERS 
TABLE CONTAINS? 
(1) REGISTER IDENTIFIER 


(2) STACK POINTER DISPLACEMENT 
(3) PRECISION 


DB Ae, ALOC, 
DB °B’, BLOC, 
DB “C%, CLOC, 
DB °D’, DLOC, 
DB SEs ELOC, 
DB id der FLOC, 
DB *H’, HLOC, 
DB is tb LLOC, 
DB °M’, HLOC, 
DB pe, PLOC, 
DB *S’, SLOC, 
DB OFFH 

OF PROGRAM 

END 


~= BJ A) A) = = = b= be fb Pe Fe 


TABLE TERMINATOR 
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0007 
3905 
0002 
330 
391F 
3C76 
3700 
OOFC 
3C57 
000D 
0004 
0005 
3CD2 
0003 
3CFD 
3D19 
39A0 
3D0B 
0008 
000u 
3D5C 
3D85 
O3E1 
0004 
3A31 
3D8D 
3F7A 
38D0 
3712 
0046 
3C€20 
003F 
0000 
0006 
032D 
3E00 
3F92 
370F 
3E28 
3E59 
3E62 
3E79 
3A8F 
0080 
0001 
0001 
0003 
0020 
0001 
3B03 
3E94 
3ECO 


SYMBOL 


3FAC 
3912 
3827 
0003 
3CS5F 
3C87 
0002 
3CA9 
3703 
3CAD 
3C8E 
3CC4 
3718 
0062 
0000 
3D26 
39A6 
3D0¢ 
0003 
3D36 
3DSF 
3F9A 
39E5 
3A09 
39EF 
0010 
0000 
3DAi 
3715 
OOFF 
OOOA 
3pcc 
0080 
3DEE 
3AGA 
3E1A 
3F8A 
0002 
3E46 
0002 
0013 
3E8C 
3AD5 
0001 
OOOA 
oo01 
0008 
0030 
0004 
3B15 
3EA8 
3ECF 


TABLE 
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0005 
38C3 
382E 
392A 
0001 
3c89 
396F 
3€32 
3968 
0004 
0004 
3CCB 
3CB7 
3CE6 
3cdc 
3D2E 
3D17 
0001 
0000 
3FAC 
3D6F 
3059 
39DE 
3AOF 
0004 
3FA1 
0003 
3F82 
3DA8 
30C2 
3CB2 
3ASE 
00co 
3DE1 
3A71 
3E12 
370C 
3E23 
0002 
3E56 
oocF 
0010 
0040 
0000 
0008 
0020 
000% 
3706 
3ADF 
3B22 
3EB6 
3EEO 


36ers 
0000 
383F 
3956 
0001 
3C9A 
3993 
3C46 
3CA2 
000! 
3C4B 
3ccF 
0000 
3CEE 
3D05 
3D31 
3998 
0014 
3D3E 
39BC 
3D7D 
0000 
0000 
3A27 
3A39 
3D97 
3D9D 
0005 
3DB0 
3DCO 
OOOF 
3A56 
0009 
3DEA 
3E0E 
3A7D 
3E49 
0080 
3FA4 
0003 
3E6C 
3A8D 
3A83 
0006 
0003 
000c 
0000 
3709 
3AE3 
3EF7 
3EBA 
3EES 
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3EEE 
3F06 
3F 4B 
000Cc 
386A 
3FA6 
3B58 
0000 
0001 
3C3A 
3877 
3B6F 
3BD6 


36EB 


OOF3 
3F21 
3FSA 
3F62 
3B31 
3893 
3B54 
0000 
0009 
OOOA 
3BeC 
3BBC 
3BEE 


0004 
3F2E 
0000 
0007 
3850 
3F6D 
PEE 
0001 
3CTE 
3861 
3BS8F 
3BC2 
3C10 


0008 
3F2F 
0008 
0006 
3B26 
0014 
0001 
0004 
0008 
381E 
3BAA 
3BD3 
3C12 


(w 


en 


se 


